home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / obero / OberonAModules.lha / Config.Mod < prev    next >
Text File  |  1999-02-26  |  1KB  |  83 lines
  1. (*
  2. ** $VER: Config.Mod 1.0 (12.4.98)
  3. **
  4. ** Oberon-A module for config.library
  5. **
  6. ** Copyright (C) 1998, Morten Bjergstrøm.
  7. **
  8. ** EMail: mbjergstroem@hotmail.com
  9. **
  10. ** config.library is (C) 1996, Adam Dawes.
  11. *)
  12.  
  13. <*STANDARD-*>
  14. MODULE [2] Config;
  15.  
  16. IMPORT
  17.   e:=Exec,
  18.   Kernel;
  19.  
  20. CONST
  21.   CONFIGNAME*="config.library";
  22.  
  23.  
  24.   CFG_WRITE_SUCCESS* = -1;
  25.   CFG_WRITE_FAIL*    =  0;
  26.  
  27.   CFG_READ_SUCCESS*  = -1;
  28.   CFG_READ_FAIL*     =  0;
  29.  
  30.  
  31. VAR
  32.   base-:e.LibraryPtr;
  33.  
  34.  
  35.  
  36.  
  37. PROCEDURE WriteConfig* [base,-30]
  38.   (filename [0]:ARRAY OF CHAR;
  39.    section  [1]:ARRAY OF CHAR;
  40.    item     [2]:ARRAY OF CHAR;
  41.    data     [3]:ARRAY OF CHAR)
  42.   :INTEGER;
  43.  
  44. PROCEDURE WriteConfigNumber* [base,-36]
  45.   (filename [0]:ARRAY OF CHAR;
  46.    section  [1]:ARRAY OF CHAR;
  47.    item     [2]:ARRAY OF CHAR;
  48.    data     [3]:LONGINT)
  49.   :INTEGER;
  50.  
  51. PROCEDURE ReadConfig* [base,-42]
  52.   (filename     [0]:ARRAY OF CHAR;
  53.    section      [1]:ARRAY OF CHAR;
  54.    item         [2]:ARRAY OF CHAR;
  55.    VAR buffer   [3]:ARRAY OF CHAR;
  56.    bufsize      [4]:INTEGER;
  57.    def          [5]:ARRAY OF CHAR)
  58.   :INTEGER;
  59.  
  60. PROCEDURE ReadConfigNumber* [base,-48]
  61.   (filename [0]:ARRAY OF CHAR;
  62.    section  [1]:ARRAY OF CHAR;
  63.    item     [2]:ARRAY OF CHAR;
  64.    def      [3]:LONGINT)
  65.   :LONGINT;
  66.  
  67.  
  68. PROCEDURE* [0] CloseLib (VAR rc : LONGINT);
  69.  
  70. BEGIN (* CloseLib *)
  71.  
  72.   IF base # NIL THEN e.CloseLibrary (base) END
  73.  
  74. END CloseLib;
  75.  
  76.  
  77. BEGIN
  78.  
  79.   base:=e.OpenLibrary(CONFIGNAME,0);
  80.   IF base # NIL THEN Kernel.SetCleanup(CloseLib) END;
  81.  
  82. END Config.
  83.